home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / intuition / window / welc2205.lha / Examples / test6 < prev    next >
Encoding:
Text File  |  1993-06-16  |  354 b   |  25 lines
  1. /*
  2.     Urban Lindeskog
  3.  
  4.     ProNotion (ProNova) SoftWare Development Group
  5.  
  6.     03-May-93
  7. */
  8.  
  9. if ~ show('L', "rexxsupport.library") then do
  10.     if ~ addlib('rexxsupport.library', 0, -30, 0) then do
  11.         exit 10
  12.     end
  13. end
  14.  
  15. options results
  16. address command
  17.  
  18.  
  19. 'REQUESTSTRING "Say something!" "Whooohaaa ! "'
  20. text=result
  21. do i=0 to 20
  22.     'TEXT NOLINE "'text'"'
  23. end
  24. x=delay(100)
  25.